home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue29 / web / FPPCHAIN.DFM / FPPCHAIN.txt
Encoding:
Text File  |  1997-07-28  |  2.3 KB  |  78 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Default = True
  5.       Name = 'WebActionItem1'
  6.       OnAction = WebModule1WebActionItem1Action
  7.     end>
  8.   Left = 200
  9.   Top = 108
  10.   Height = 212
  11.   Width = 338
  12.   object Table1: TTable
  13.     Active = True
  14.     DatabaseName = 'DBDEMOS'
  15.     TableName = 'Clients.DB'
  16.     Left = 16
  17.     Top = 8
  18.   end
  19.   object ppFirstStage: TPageProducer
  20.     HTMLDoc.Strings = (
  21.       '<HTML><HEAD><TITLE></TITLE></HEAD>'
  22.       '<BODY>'
  23.       '<H1>Client details found</H1>'
  24.       
  25.         '<TABLE BORDER="2" CELLPADDING="1" CELLSPACING="1" WIDTH="100%"><' +
  26.         'TBODY><COLDEFS><COLDEF>'
  27.       
  28.         '<COLDEF><COLDEF></COLDEFS><ROWS><TR><TD COLSTART="1" COLSPAN="4"' +
  29.         '>Account No: <#ACCT></TD></TR>'
  30.       
  31.         '<TR><TD COLSTART="1">Name: <#NAME></TD><TD COLSTART="2" COLSPAN=' +
  32.         '"2">Date of birth: <#DOB></TD>'
  33.       '<TD COLSTART="4" ROWSPAN="5"><#PHOTO></TD></TR>'
  34.       
  35.         '<TR><TD VALIGN="TOP" COLSTART="1" ROWSPAN="4">Address:<BR><#ADDR' +
  36.         'ESS></TD>'
  37.       '<TD COLSTART="2" COLSPAN="2">Telephone: <#TEL></TD></TR>'
  38.       '<TR><TD COLSTART="2" COLSPAN="2">Objectives: <#OBJ></TD></TR>'
  39.       '<TR><TD COLSTART="2" COLSPAN="2">Interests: <#HOBBY></TD></TR>'
  40.       
  41.         '<TR><TD COLSTART="2">Risk: <#RISK></TD><TD COLSTART="3">Occupati' +
  42.         'on: <#JOB></TD>'
  43.       '</TR></ROWS>'
  44.       '</TBODY></TABLE>'
  45.       
  46.         '<FORM ACTION="http://localhost/scripts/ppchain.dll"><TABLE><TBOD' +
  47.         'Y><COLDEFS><COLDEF'
  48.       
  49.         '><COLDEF></COLDEFS><ROWS><TR><TD COLSTART="1">Choose a client na' +
  50.         'me</TD><TD'
  51.       
  52.         'COLSTART="2"><SELECT NAME="name" SIZE="1"><OPTION VALUE="Davis">' +
  53.         'Davis</OPTION><OPTION'
  54.       
  55.         ' VALUE="Jones">Jones</OPTION><OPTION VALUE="Parker">Parker</OPTI' +
  56.         'ON><OPTION'
  57.       
  58.         'VALUE="Sawyer">Sawyer</OPTION><OPTION VALUE="White">White</OPTIO' +
  59.         'N></SELECT></TD></TR>'
  60.       
  61.         '<TR><TD COLSTART="1"><INPUT TYPE="SUBMIT" NAME="send" VALUE="Get' +
  62.         ' details"></TD><TD'
  63.       
  64.         ' COLSTART="2"><INPUT TYPE="RESET"></TD></TR></ROWS></TBODY></TAB' +
  65.         'LE></FORM>'
  66.       ' </BODY></HTML>'
  67.       '')
  68.     OnHTMLTag = ppFirstStageHTMLTag
  69.     Left = 80
  70.     Top = 8
  71.   end
  72.   object ppSecondStage: TPageProducer
  73.     OnHTMLTag = ppSecondStageHTMLTag
  74.     Left = 160
  75.     Top = 8
  76.   end
  77. end
  78.